home *** CD-ROM | disk | FTP | other *** search
/ Voyager Presents CD-ROM's That Matter / Voyager Presents CD-ROM's That Matter.iso / pc / preview.dir / 00346.ls < prev    next >
Encoding:
Text File  |  1995-02-25  |  489 b   |  19 lines
  1. on mouseDown
  2.   global autoMin
  3.   set min to field "autoMinutes"
  4.   if min <> "0.5" then
  5.     set newmin to min - 0.5
  6.     put newmin into field "tmpField"
  7.     set str to field "tmpField"
  8.     set len to the number of chars in str
  9.     if char len of str = "0" then
  10.       set len to len - 2
  11.       set str to char 1 to len of str
  12.       put str into field "tmpfield"
  13.     end if
  14.     put field "tmpField" into field "autoMinutes"
  15.     set autoMin to field "autoMinutes"
  16.     setAutoTime()
  17.   end if
  18. end
  19.